COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	New code to handle deletions and additions
C00003 00003	New code to handle deletions and additions
C00004 ENDMK
C⊗;
;New code to handle deletions and additions
	POPJ P,			;All marks are before addition or deletion
	MOVE TT,-1(P)		;Lines added (may be negative)
	PUSH P,E
	MOVE E,XXPAGE
XLALL1:	HRRZ T,MARKS(E)
	CAMGE T,ARRL
	HLRZ T,MARKS+1(E)
zzzzASDFGHASDFYYYY
	CAMN T,CURPAG		;Is next mark on this page? 
	AOJA E,XLALL1		;Yes
XLALL2:	MOVE E,XXPAGE
	HRRZ T,MARKS(E)
	MOVEM T,XXLINE
	JUMPGE TT,XLALL4		;Through if additions
	MOVEI TT,1(E)
XLALL3:	MOVE T,MARKS(TT)
	CAMN T,MARKS(E)
	AOJA TT,XLALL3
	MOVEM T,MARKS+1(E)
	JUMPLE T,XLALL4
	AOS E
	AOJA TT,XLALL3
XLALL4:	POP P,E
	POPJ P,

;New code to handle deletions and additions
	POPJ P,			;All marks are before addition or deletion
	MOVE TT,-1(P)		;Lines added (may be negative)
	PUSH P,E
	MOVE E,XXPAGE
XLALL1:	HRRZ T,MARKS(E)
	CAMGE T,ARRL
	HLRZ T,MARKS+1(E)
zzzzASDFGHASDFYYYY
	CAMN T,CURPAG		;Is next mark on this page? 
	AOJA E,XLALL1		;Yes
XLALL2:	MOVE E,XXPAGE
	HRRZ T,MARKS(E)
	MOVEM T,XXLINE
	JUMPGE TT,XLALL4		;Through if additions
	MOVEI TT,1(E)
XLALL3:	MOVE T,MARKS(TT)
	CAMN T,MARKS(E)
	AOJA TT,XLALL3
	MOVEM T,MARKS+1(E)
	JUMPLE T,XLALL4
	AOS E
	AOJA TT,XLALL3
XLALL4:	POP P,E
	POPJ P,